(dired-goto-file): Don't try matching one line twice.

diff --git a/lisp/dired.el b/lisp/dired.el
index 6eb3b284cc4e4d812df353ac9f47e2584030378f..44d0ec3747c705ee24ac0ae3748c3309ac751f09 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1418,7 +1418,10 @@ Returns the new value of the alist."
                    ;; correct) match could have been elsewhere on the
                    ;; ;; line (e.g. "-" would match somewhere in the
                    ;; permission bits).
-                 (setq found (dired-move-to-filename)))))))
+                 (setq found (dired-move-to-filename))
+               ;; If this isn't the right line, move forward to avoid
+               ;; trying this line again.
+               (forward-line 1))))))
     (and found
         ;; return value of point (i.e., FOUND):
         (goto-char found))))